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— • file Listlnterface.mesa 

— last modified by Sandman, September 7, 1977 4:45 PM 

DIRECTORY 

AltoDefs: FROM "altodefs". 
BcdDefs: FROM "bcddefs". 
CommanderDef s: FROM "commanderdefs" , 
lODefs: FROM "iodefs". 
ListerDefs: FROM "1 isterdef s" , 
OutputOefs: FROM "outputdef s" , 
SegmentDefs: FROM "segmentdefs", 
StringDefs: FROM "stringdef s" , 
SymbolTableDefs: FROM "symboltabledefs" . 
SymDefs: FROM "symdefs", 
SystemOefs: FROM "systemdef s" ; 

DEFINITIONS FROM ListerDefs, OutputOefs, SymOefs; 

Listlnterface: PROGRAM IMPORTS ListerDefs, CommanderDef s, lODefs, OutputOefs, SegmentDefs, StringDefs, 
♦♦SymbolTableDefs, SystemDefs 

EXPORTS ListerDefs = 

BEGIN 

FileSegmentHandle: TYPE = SegmentDefs. FileSegmentHandle; 

FileHandle: TYPE = SegmentDefs . Fi leHandle; 

symbols: SymbolTableDef s .Symbol Tab! eBase; 

PutSubString: PROCEDURE [ss: StringDefs .Substring] = 
BEGIN 

i: CARDINAL; 
FOR i IN [ss. offset. .ss.offset+ss . length) 

DO 

PutChar[ss.base[i]3 

ENDLOOP; 
RETURN 
END; 

Printlnterface: PROCEDURE = 
BEGIN OPEN symbols; 
ss: StringDef s.SubStringDescriptor; 
sei : ISEIndex; 

FOR sei ♦- f irstctxse[stHandle .outerCtx] , nextse[sei] UNTIL sei = ISENull DO 
IF typeclass[symtype[sei]] = transfer THEN 
SELECT xfermode[symtype[sei]] FROM 
procedure, signal, error, program => 
BEGIN 

PutNumber[LOOPHOLE[symaddress[sei]], NumberFormat[10 , FALSE, FALSE, 4]]; 
PutString[" -- "]; 
pr intsei[sei] ; 
PutString[": "]; 

PutModeName[xf ermode[symtype[sei]]] ; 
PutChar[IODefs.CR]; 
END; 
ENDCASE; 
ENDLOOP; 
RETURN 
END; 

printsei: PROCEDURE [sei: ISEIndex] = 
BEGIN 

printhti[IF sei^SENull THEN HTNull ELSE ( symbol s . seb+se i ). htptr] ; 
RETURN 
END; 

ModePrinlName: ARRAY TransferMode OF STRING = [ 

••PROCEDURr", "PORT". "SIGNAL". "ERROR", "PROGRAM". "INLINE". "NONE"]; 

PutModeName: PROCEDURr[n: TransferMode] = 
BEGIN 

PuLSLring[ModePrinLName[n]]; RETURN 
END; 

printhli: PROCFnURE [hLi: HTIndex] = 
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BEGIN 

desc: StringDefs.SubStringDescriptor; 
s: StringDefs. Substring = Qdesc; 
IF hti » HTNull 

THEN PutString["(anonymous)"] 
ELSE 

BEGIN 

symbol s.SubStringForHash[s, hti]; PutSubString[s]; 

END; 
RETURN 
END; 

PrintHeader: PROCEDURE [name: STRING, f i le: FileHandle] » 
BEGIN OPEN SegmentDefs; 
bed: POINTER TO BcdDefs.BCD; 

bcdseg: FileSegmentHandle ^ NewFi 1eSegment[f ile, 1 , l.Read] ; 
octal3: lODef s .Numbef-Format « NumberFormat[8. FALSE, FALSE, 3]; 
Swapln[bcdseg]; 

bed ♦- Fi1eS6gmentAddress[bcdseg]; 
PutString[name]; 
PutString[" eompiled "]; 
PutTime[bcd. version. time]; 
PutString[" by "]; 
Put Number [bed. version. net.oetalS]; 
PutChar['#]; 

PutNumber[bcd . version. host, octalS]; 
PutChar['#]; 

IF bed. version. zapped THEN PutString[" zapped! I!"]; 
PutCR[]; 

PutString[" Creator "]; 
PutTime[bcd. creator .time]; 
PutString[" "]; 

PutNumber[bed .creator. net, oetal 3] ; 
PutChar['#]; 

Put Number [bed .creator .host,oetal3]: 
PutChar['#]; 

IF bed. creator. zapped THEN PutString[" zappedlll"]* 
PutCR[]; PutCR[]; 
Un1ock[bcdseg]; 
Del eteFileSegment [bcdseg]; 
RETURN 
END; 

GetSymbolTable: PROCEDURE [f i le: Fi leHandle] RETURNS [symseg : Fi leSegmentHandle] 
BEGIN OPEN SegmentDefs; 
pages: PageCount; 
bed: POINTER TO BcdDefs.BCD; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex = FIRST[BcdDef s.MTIndex] ; 
bcdseg: FileSegmentHandle ♦- NewFi leSegment[fi le, 1 , 1 .Read] ; 
Swapln[bcdseg] ; 

bed ♦• Fi leSegmentAddress[bcdseg] ; 
IF (pages ^ bcd.nPages) ^ 1 THEN 

BEGIN 

Unlock[bcdseg] ; 

MoveFileSegment[bcdseg, 1, pages]; 

Swapln[bcdseg] ; 

bed ♦■ FneSegmentAddress[bcdseg] ; 

END; 
BEGIN 

ENABLE UNWIND => BEGIN Un lock[bcdseg] ; Del eteFi 1 eSegmen t[bcdseg] ; END; 

IF bed. versionident # BcdDefs . VersionlD THEN SIGNAL BadVers ionID; 

IF bcd.nModules n 1 THEN SIGNAL Mult ipl eModules ; 

IF -bed.def mi tions THEN SIGNAL NotDef in i t ionsModule ; 
END; 

mtb ^ LOOPHOLF[bcd,CARDrNAL]+bcd.mtOffset; 
symseg ^ r indSegment[bcdseg , (mtb+mti ) . sseg , FALSE]; 
IF symseg ft NIL THEN symseg. class ♦- symbols; 
Unlock[bcdseg] ; 
Deleter i 1 eSegment[bcdseg] ; 
RETURN 
END; 

BadVersionID: SIGNAL = CODE; 
MultipleModules: SIGNAL = CODE; 
NolDefini t ionsModule: SIGNAL = CODE; 
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FindSegment: PROCEDURE [seg: FileSegmentHandle, segdesc: BcdDefs.SegDesc, long: BOOLEAN] 
RETURNS [FileSegmentHandle] » 
BEGIN OPEN SegmentOefs; 
ss: StringDefs.SubStringDescriptor; 
file: SegmentOefs, FileHandle; 
name: STRING; 

bed: POINTER TO BcdDefs.BCD *• Fi leSegmentAddress[seg]; 
IF segdesc. file » BcdDef s .FTNull THEN RETURN[NIL] 
ELSE IF segdesc. file = BcdOefs .FTSelf THEN file ♦- seg. file 
ELSE 

BEGIN OPEN f: LOOPHOLE[bcd+bcd . f tOf f set . CARDINAL]+segdesc.f ile; 

name ♦• SystemDefs.AnocateHeapString[f . name, length+4] ; 

ss ^ [LOOPHOLE[bcd+bcd.ssOffset, STRING], f . name. off set , f .name. length]; 

StringDefs .AppendSubString[name, Qss] ; 

Check For Ex ten si on [name, " .bed"]; 

file ^ NewFi le[name, Def aultAeeess, DefaultVersion]; 

SystemOef s . FreeHeapString[name]; 

END; 
RETURN[NewFileSegment[f ile, segdesc. base, 

segdesc. pages + (IF long THEN segdesc. extraPages ELSE 0), Read]]; 
END; 

CheekForExtension: PROCEDURE [name, ext: STRING] =* 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .name. length) DO 
IF name[i] = ' • THEN RETURN; 
ENDLOOP; 
StringDefs.AppendString[name, ext]; 
RETURN 
END; 

Interface: PROCEDURE[root : STRING] » 
BEGIN OPEN StringDefs, SegmentOefs; 
i: CARDINAL; 
bcdFile: STRING •- [40]; 
file: FileHandle; 
sseg: FileSegmentHandle; 
Ap pen dString[bcdF ile, root]; 
FOR i IN [0. .bcdFile. length) DO 

IF bcdFile[i] = ' . THEN EXIT; 

REPEAT FINISHED => AppendString[bcdFi 1 e , " . bed"] ; 

ENDLOOP; 
BEGIN 
file ^ NewFile[bcdFile, Read, OldFileOnly I 

FileNameError => GO TO BadName]; 
sseg ♦- GetSymbolTable[f ile 

IBadVersionID, Mul tipleModules , NotDef initionsModule => GOTO BadFormat]; 
symbol s*-Symbol TableDef s . Acqui reSymbo 1 Tab le[ Symbol Tab 1 eDefs . Tab leForSegment[ sseg]] ; 
OpenOutput[root,".ir']; 
PrintHeader[bcdFile, file]; 
Pr in Lin terface[] ; 

Symbol Tab! eDefs .ReleaseSymbolTable[ symbols]; 
SegmentOefs .DeleteF i leSegment[sseg] ; 
CloseOu tput[] ; 
EXITS 

BadFormat => lODef s . Wr i teString["Bad Format!"]; 

BadName => lODefs .Wr i teString["F ile Not Foundl"]; 
END; 
END; 

command : CommanderDef s . Comma n dB 1 ock Handle; 

command +- CommanderDef s . AddCommand["Tn terf ace" ,LOOPMOLE[rnterface],l]; 
command . params[0] ♦- [type: string, prompt: "Filename"]; 

END. . . 



